home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / MacGzip 1.0 / source / GNU / lzw.c < prev    next >
Text File  |  1995-08-19  |  780b  |  35 lines
  1. /* lzw.c -- compress files in LZW format.
  2.  * This is a dummy version avoiding patent problems.
  3.  */
  4.  
  5. /*
  6.  * Changed: August 19, 1995. spd for MacGzip 1.0 (changed stderr)
  7.  */
  8.  
  9. #ifdef RCSID
  10. static char rcsid[] = "$Id: lzw.c,v 0.9 1993/06/10 13:27:31 jloup Exp $";
  11. #endif
  12.  
  13. #include "tailor.h"
  14. #include "gzip.h"
  15. #include "lzw.h"
  16.  
  17. static int msg_done = 0;
  18.  
  19. /* Compress in to out with lzw method. */
  20. int lzw(in, out)
  21.     int in, out;
  22. {
  23.     if (msg_done) return ERROR;
  24.     msg_done = 1;
  25. #ifndef _MAC_ERRORS_H_ /* spd */
  26.     fprintf(stderr,"output in compress .Z format not supported\n");
  27. #else
  28.     DoError(NO_ERR, WARN_ERR, "output in compress .Z format not supported");
  29. #endif
  30.     if (in != out) { /* avoid warnings on unused variables */
  31.         exit_code = ERROR;
  32.     }
  33.     return ERROR;
  34. }
  35.